
#include'pros.au3'
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;Run Form1
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
$Winsize = WinGetPos("Form1")

$Hwnd=WinGetHandle('Form1')
$hdl=Int(String($Hwnd))

$oTCaptureX=objcreate("TCaptureX.TextCaptureX")

Dim $winP[2]
Dim $AreaB[2]
Dim $AReaE[2]
$WinP[0]=$Winsize[0]
$WinP[1]=$Winsize[1]

$AreaB[0]=199
$AreaB[1]=97
$AreaE[0]=333
$AreaE[1]=130

$size=GetTXArea($WinP,$AreaB,$AreaE);

$str=$oTCaptureX.gettextfromrect($hdl,$size[0],$size[1],$size[2],$size[3])
;$str=$oTCaptureX.gettextfromrect($hdl,1,1,8000,8000)

msgbox(0,$hdl,$str)
